home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-10-12 | 411 b | 25 lines | [TEXT/PJMM] |
- unit Fonts;
-
- { Pascal Interface to the Macintosh Libraries }
-
- { Copyright © Apple Computer Inc. }
- { All Rights Reserved }
-
- { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
-
- interface
-
- function GetDefFontSize: Integer;
- inline
- $3EB8, $0BA8, $6604, $3EBC, $000C;
-
- function GetSysFont: Integer;
- inline
- $3EB8, $0BA6;
-
- function GetAppFont: Integer;
- inline
- $3EB8, $0984;
-
- implementation
- end.